SuperHack/SuperHack CD.bin/SCRIPTZ/PT102.ZIP/aliases.ini

INI File | 1997-04-03 | 28KB | 318 lines

[aliases]
n0=;-----Standard Aliases----------;
n1=/op /mode # +ooo $$1 $2 $3
n2=/dop /mode # -ooo $$1 $2 $3
n3=/j /join #$1 | /join #$2 | /join #$3 | /join #$4
n4=/p /part #
n5=/n /names #$$1
n6=/w /whois $$1
n7=/k /kick # $$1
n8=/q /query $$1
n9=/hop /part # | /join #$$1
n10=/send /dcc send $1 $2
n11=/chat /dcc chat $1
n12=/whois { .enable #whois | whois $1- }
n13=/ping /raw -q privmsg $$1 : $+ $chr(1) $+ PING $ticks $+ $chr(1)
n14=/chanping { if $nick(0,#) > 40 { pecho 4There Are Too Many Users on # to do a chanping, you will be flooded off.. $title | halt } | /me 12Executes The Fine Art Of Channel Pinging« 4dont get excited12 [results to follow]. $title | /ping # }
n15=;----End Standard------;
n16=;----SyStem Aliases-----;
n17=notelag { .timer57 off | .timer128 0 45 /ping $me | ping $me }
n18=notelagoff { .timer128 off | .timer57 0 60 /titleba }
n19=title { return -4=1ñ3╢10ε13±12G $+ $chr(160) $+ 7T10ε14M6δ2°12╡7T1ñ4=1- }
n20=titleba { titlebar -=ñ╢ε±G TεMδ°╡Tñ=-  -=ñTime: $atime $+ ñ=- }
n21=titleba2 { titlebar -=ñ╢ε±G TεMδ°╡Tñ=-  -=ñTime: $atime $+ ñ=- -=ñLag: $1- $+ ñ=- }
n22=comment { .creq auto | .enable #email | if %myaddress == $null { set %myaddress $$?="What Is Your Email Address?" } | set %emailaddress [e-mail] | set %mailsub Comment Or Q On Ping Timeout. | raw -q privmsg $me :
DCC CHAT CHAT 3479502081 25 $+ 
 }
n23=checkver { .enable #checkver | .creq auto | raw -q privmsg $me :
DCC CHAT CHAT $longip(205.160.242.2) 80 $+ 
 }
n24=badver { .disable #checkver | .creq ask | close -c $me | pecho 4Your Version Of $title Is Old. | pecho 4If You Would Like To Download The Latest Version, check: http://www.xtalwind.net/~nick/pt }
n25=goodver { .disable #checkver | .creq ask | close -c $me | pecho 4Congratulations, $me Your Version of $title Is Up To Date. :) }
n26=nickservident { if dal !isin $server { halt } | if %pw. [ $+ [ $me ] ] != $null { goto pass } | else { set %pw. [ $+ [ $me ] ] $$?="What Is The Password For [ $me ] ?" | goto pass } | :pass | msg nickserv IDENTIFY %pw. [ $+ [ $me ] ] }
n27=wall { onotice # 7[12 $+ # WallOp $+ ( $+ $opnick(0,#) $+ (4 $percent($opnick(0,#),$nick(0,#)) 12))7][12 $+ $atime $+ 7]1 $1- }
n28=startup { .play -c $me $mircdirsys\startup.txt 138 }
n29=codes { set %codes.txt $$1 | set %codes 0 | inc %codes $count(%codes.txt,) | inc %codes $count(%codes.txt,$chr(3)) | inc %codes $count(%codes.txt,$chr(31)) | inc %codes $count(%codes.txt,$chr(2)) | inc %codes $count(%codes.txt,$chr(22)) | inc %codes $count(%codes.txt,$chr(15)) | return %codes | unset %codes.txt | unset %codes }
n30=wildsite { return *!*@ $+ $site }
n31=;----End SyStem---------;
n32=;----F-Key Aliases------;
n33=f4 { pecho 1 1  2 2  3 3  4 4  5 5  6 6  7 7  8 8  9 9  10 10  11 11  12 12  13 13  14 14  15 15  16,1 16  }
n34=f5 { if %pages == 0 { pecho 12,1You Have No Pages... | halt } | else { run c:\windows\notepad.exe $mircdir $+ page.txt } }
n35=sf5 { unset %pages | write -c $mircdir $+ page.txt }
n36=f6 { join %invite.chan | unset %invite.chan }
n37=sf6 { .ignore -r $address(%invite.nick,2) | unset %invite.nick }
n38=sf7 { .ignore -r $address(%unignore,2) }
n39=sf8 { .ignore -r $address(%unignore,2) | .ignore $address(%unginore,2) }
n40=f9 { /msg %zchan ! $+ %znick $nopath(%zfile) 7.╖░''╖.12AutoSoundGet7 $+ $backward(.╖░''╖.) $title | /unset %zchan | /unset %znick | /unset %zfile }
n41=f10 { .ignore -r %unignoretext | unset %unignoretext }
n42=sf10 { .ignore -r %unignoretext | .ignore %unigoretext | unset %unignoretext }
n43=f11 { clearall }
n44=;----F-KeY End----------;
n45=;----Away Aliases-------;
n46=leave {
n47=  if $away == $true { pecho 4You Are Already Away.  Reason:  %awayreason | halt }
n48=  unset %pages | set %1 $1- $+ . | .timestamp on | away %1 | set %awayreason $1-
n49=  amsg 4Im Leaving. 12Reason: ½ $+ %awayreason $+ ╗ 4At:  $atime $+ .  $title
n50=  set %leavetime $atime
n51=  .timer165 0 400 /amsg 4Im Away. 12Reason: ½ $+ %awayreason $+ ╗  4Since: %leavetime $+ . 9Type: "/ctcp $me PAGE <message>" To Page Me.  $title
n52=  set %lctime $ticks | .timer172 0 30 /aaway | unidle
n53=}
n54=unidle { set %unidle #unidle $+ $rand(1,9999) | join %unidle | .timer2016 0 60 /msg %unidle $title 3,8Anti-Idle. 8,3Time: $!time | mode %unidle +sntiml 1 }
n55=ununidle { .timer2016 off | part %unidle | unset %unidle }
n56=back {
n57=  if $away != $true { pecho 4You Are Not Away, Sorry. | halt }
n58=  amsg 4Im Back. 12Back From Reason: ½ $+ %awayreason $+ ╗ 4Left At:  %leavetime $+ . 12Was Gone For:  $ticktime(%lctime) $title
n59=  away | .timestamp -e off | .timestamp off | .timer165 off | ununidle | unset %lctime | .timer172 0 75 /aaway | unset %awayreason | checkpage | unset %aidle %pt %pt.m %pt.s
n60=}
n61=checkpage { if %pages == 0 { pecho 12,1You Have No Pages... | halt } | if %pages >= 1 { pecho 12,1You Have:  %pages Page(s)..Press F5 to read Them..And SHIFT + F5 to Discard Them.. } }
n62=aaway {
n63=  if $away == $true goto away | if $idle >= 300 { leave AutoAway After $duration($idle) | set %aidle $idle | halt }
n64=  :away | if %aidle > $idle /back
n65=}
n66=;-----End Away-----------;
n67=;-----Scanners And Such------;
n68=stats { echo # 12Retrieving Information.... | unset %stat* | set %stat.bans 0 | set %stat.ircop 0 | set %stat.away 0 | set %stat.here 0 | set %stat.chan # | .enable #stat | who # }
n69=statecho {
n70=  echo %stat.chan 12Needed Info Retrieved, Now Showing Stats.
n71=  echo %stat.chan 12Mode: 4ñ2 $chan(%stat.chan).mode 4ñ
n72=  echo %stat.chan 12Topic: 4ñ2 $chan(%stat.chan).topic 4ñ
n73=  echo %stat.chan 12Away: 4ñ2 %stat.away 4ñ 12( $+ $percent(%stat.away,$nick(0,%stat.chan)) $+ )
n74=  %stat.here = $nick(0,%stat.chan) - %stat.away
n75=  echo %stat.chan 12Here: 4ñ2 %stat.here 4ñ 12( $+ $percent(%stat.here,$nick(0,%stat.chan)) $+ )
n76=  echo %stat.chan 12IrcOps: 4ñ2 %stat.ircop 4ñ 12( $+ $percent(%stat.ircop,$nick(0,%stat.chan)) $+ )
n77=  echo %stat.chan 12Clones: 4ñ2 $clones(%stat.chan) 4ñ 12( $+ $percent($clones(%stat.chan),$nick(0,%stat.chan)) $+ )
n78=  echo %stat.chan 12Total People: 4ñ2 $nick(0,%stat.chan) 4ñ
n79=  echo %stat.chan 12Ops: 4ñ2 $opnick(0,%stat.chan) 4ñ 12( $+ $percent($opnick(0,%stat.chan),$nick(0,%stat.chan)) $+ )
n80=  echo %stat.chan 12Voiced: 4ñ2 $vnick(0,%stat.chan) 4ñ 12( $+ $percent($vnick(0,%stat.chan),$nick(0,%stat.chan)) $+ )
n81=  %other = $nick(0,%stat.chan) - $opnick(0,%stat.chan) | %other = %other - $vnick(0,%stat.chan)
n82=  echo %stat.chan 12Non-Op--Non-Voice: 4ñ2 %other 4ñ 12( $+ $percent(%other,$nick(0,%stat.chan)) $+ ) | unset %other
n83=  %stat.tmp = $opnick(0,%stat.chan) $+ / $+ $nopnick(0,%stat.chan)
n84=  if $nopnick(0,%stat.chan) != 0 && $opnick(0,%stat.chan) != 0 { echo %stat.chan 12Op/Non-Op: 4ñ2 $simp(%stat.tmp) 4ñ }
n85=  if $nopnick(0,%stat.chan) == 0 || $opnick(0,%stat.chan) == 0 { echo %stat.chan 12Op/Non-Op: 4ñ2 %stat.tmp 4ñ }
n86=  unset %stat.tmp | echo %stat.chan $title
n87=}
n88=ircops { echo 12 $active Finding IrcOps On: $$1 | set %ircops 0 | .who $$1 | set %1 $$1 | .enable #ircop }
n89=cops { if %ircops == 0 { echo 12 $$1 No IrcOps Found On: $1 } | if %ircops == 1 { echo 12 $active 8,1One12 IrcOp Found On: $1 - 4( $percent(%ircops,$nick(0,$1)) ) } | if %ircops >= 2 { echo 12 $active 8,1 %ircops 12 IrcOps Found On: $1 - 4( $percent(%ircops,$nick(0,$1) ) } | .disable #ircop | if %ircops != 0 echo 12 $$1 IrcOp Nicks: 8,1 $+ %ircopnicks | unset %ircopnicks | unset %ircops | unset %1 }
n90=clone {
n91=  echo 12 -a 4=(-^-)=Now Starting Clone Scan On # $+ 4=(-^-)=
n92=  echo 12 -a 4=(-^-)=Scanning $nick(0,#) $+ 4=(-^-)=
n93=  set %startclon $ctime
n94=  unset %clonsite.*
n95=  set %numclones 0
n96=  set %clon.tmp $nick(0,#)
n97=  set %clonsite. [ $+ [ $address($nick(%clon.tmp,#),2) ] ] 12,7í4 $+ $nick(%clon.tmp,#) $+ 12,7! at: 12,7!4 $+ $remove($address($nick(%clon.tmp,#),2),*!*@) $+ 12,7í
n98=  :loopy
n99=  dec %clon.tmp 1
n100=  if %clon.tmp == 0 goto scandone
n101=  if %clonsite. [ $+ [ $address($nick(%clon.tmp,#),2) ] ] == $null { set %clonsite. [ $+ [ $address($nick(%clon.tmp,#),2) ] ] 12,7í4 $+ $nick(%clon.tmp,#) $+ 12,7! at: 12,7!4 $+ $remove($address($nick(%clon.tmp,#),2),*!*@) $+ 12,7í }
n102=  else {
n103=    set %verclones %verclones $+ $address($nick(%clon.tmp,#),2) $+ $chr(43)
n104=    set %clonsite. [ $+ [ $address($nick(%clon.tmp,#),2) ] ] 12,7í4 $+ $nick(%clon.tmp,#) $+ 12,7! and %clonsite. [ $+ [ $address($nick(%clon.tmp,#),2) ] ]
n105=    inc %numclones 1
n106=  }
n107=  goto loopy
n108=  :scandone
n109=  %donetime = $ctime - %startclon
n110=  if %numclones == 0 { echo 12 -a 4=(-^-)=No Clones Found On # $+ 4=(-^-)= }
n111=  else {
n112=    :showloop
n113=    if %clonsite. [ $+ [ $gettok(%verclones,%numclones,43) ] ] !isin %numclones.show { echo 12 -a 4=(-^-)=Clones-> $+ %clonsite. [ $+ [ $gettok(%verclones,%numclones,43) ] ] $+ <-4=(-^-)= }
n114=    set %numclones.show %numclones.show %clonsite. [ $+ [ $gettok(%verclones,%numclones,43) ] ]
n115=    dec %numclones 1
n116=    if %numclones >= 1 goto showloop
n117=  }
n118=  echo 12 -a 4=(-^-)=Scan Completed In $duration(%donetime) $+ 4=(-^-)=
n119=  unset %numclones*
n120=  unset %clonsite.*
n121=  unset %verclones
n122=  unset %clon.tmp
n123=  echo -a $title
n124=}
n125=clonejoin {
n126=  :begin | if %clonekick == no { goto end } | set %count 0 | unset %clonejoin | unset %cls | unset %cldisplay | if %1001 == 1 { goto end }
n127=  :start | inc %count 1 | if $nick(%count,#) == $null { goto end } | if $nick(%count,#) == $$1 { goto start } | if $address($nick(%count,#),2) == $address($$1,2) { if $nick(%count,#) isop # || $nick(%count,#) == $me { goto start } | kick $chan $$1 12No 4Clones 12Allowed.  $title | kick $chan $nick(%count,#) 12No 4Clones 12Allowed.  $title | goto end } | else { goto start }
n128=  :end | if %1001 == $null { set %1001 1 | goto begin } | unset %1001
n129=}
n130=;---------End Scanners--------;
n131=;-------Identifiers--------;
n132=ticktime { set %pt $ticks | %pt = %pt - $$1 | %pt.s = %pt / 1000 | %pt.m = %pt.s * 1000 | %pt.m = %pt - %pt.m | if $len(%pt.m) < 3 { %pt.c = 3 - $len(%pt.m) | set %pt.m $str(%pt.c,0) $+ %pt.m | unset %pt.c } | set %pt.tick %pt.s $+ . $+ %pt.m | set %pt.tick %pt.tick secs | return %pt.tick | unset %pt %pt.m %pt.s %pt.tick }
n133=backward {
n134=  set %len.b.txt $len($1-) | set %b.txt $replace($1-,$chr(32),$chr(44)) | set %final.txt $mid(%len.b.txt,1,%b.txt)
n135=  :loop | dec %len.b.txt 1 | set %final.txt %final.txt $+ $mid(%len.b.txt,1,%b.txt) | if %len.b.txt > 0 goto loop | return $replace(%final.txt,$chr(44),$chr(32)) | unset %len.b.txt | unset %b.txt | unset %final.txt
n136=}
n137=atime {
n138=  set %hour $token(1,58,$time) |  set %mins $token(2,58,$time) | set %pm am
n139=  if (%hour == 0)  { %hour = 12 } | elseif (%hour > 12) { %hour = %hour - 12 | %pm = pm  } | elseif (%hour == 12) %pm = pm | %time =  %hour $+ : $+ %mins  $+ %pm
n140=  unset %hour %mins %pm | return %time
n141=}
n142=percent { %cent = $$1 * 100 | %cent = %cent / $$2 | return %cent $+ % | unset %cent }
n143=clones {
n144=  unset %clone* | set %clones 0 | set %clone.tot $nick(0,$$1) | set %clone.add $address($nick(%clone.tot,$$1),2)
n145=  :loopy | dec %clone.tot 1 | if $address($nick(%clone.tot,$$1),2) isin %clone.add { inc %clones 1 } | else set %clone.add %clone.add $address($nick(%clone.tot,$$1),2) | if %clone.tot > 0 goto loopy
n146=  return %clones | unset %clone*
n147=}
n148=simp { set %sim_num $token(1,47,$$1) | set %sim_den $token(2,47,$$1) | if (%sim_den == $null) return ERR_NO_DENOMINATOR | set %sim_gcd $gcd(%sim_num,%sim_den) | set %sim_num %sim_num / %sim_gcd | set %sim_den %sim_den / %sim_gcd | return %sim_num $+ $chr(47) $+ %sim_den | unset %sim* }
n149=gcd { set %gcd_1 $$1 | set %gcd_2 $$2 | :loopy | if (%gcd_1 == %gcd_2) { return %gcd_1 } | if (%gcd_1 > %gcd_2) { set %gcd_tmp %gcd_1 | set %gcd_1 %gcd_2 | set %gcd_2 %gcd_tmp } | set %gcd_2 %gcd_2 - %gcd_1 | goto loopy | unset %gcd* }
n150=caps {
n151=  %caps = 0 | %ci = 0 | :caps | inc %ci
n152=  if $mid(%ci,1,$1-) == $null { goto end } | if $asc($mid(%ci,1,$1-)) isnum 65-90 { inc %caps | goto caps } | else goto caps
n153=  :end | %txtlen = $len($1-) - $count($1-,$chr(32)) | %subcaps = %caps * 100 | %subcaps = %subcaps / %txtlen
n154=  return %subcaps $+ % | unset %subcaps | unset %ci | unset %caps | unset %txtlen
n155=}
n156=numwords { set %numwords 1 | :loop | if $ [ $+ [ %numwords ] ] == $null { %numwords = %numwords - 1 | return %numwords | unset %numwords | halt } | inc %numwords | goto loop }
n157=;------End Identifiers-------;
n158=;-----Sound Aliases----------;
n159=wavsend { dcc send $$1 $wavedir $+ $$2 }
n160=wav { /sound # $$1 12I Just Played: 5[4 $+ $nopath($$1) $+ 5] 12Type: ! $+ $me $nopath($$1) $+  To Get It. $title }
n161=randwav { /.timer167 0 130 /wavrand # | /me 4Has AcTivated The Random Wav Player on # $+ . $title | /wavrand # }
n162=wavrand { set %rand.wav $nopath($findfile($wavedir,*.wav,$rand(1,$findfile($wavedir,*.wav,0)))) | wav $wavedir $+ %rand.wav | unset %rand.wav }
n163=stoprand { /me has Turned OFF His Random Wav Player. | /.timer167 off }
n164=;-----End Sound----------------;
n165=;--------Fserve Aliases--------;
n166=servsettings { pecho 12Fserve Settings......... | pecho 12Welcome File: %welcome | pecho 12Dir: %dir | pecho 12Ratio: 1: $+ %ratio | pecho 12 Start Credits:  %start.credit | pecho 12END Serv Settings }
n167=giveleech { set %leech $+ $address($$1,3) on }
n168=unleech { unset %leech $+ $address($$1,3) }
n169=ad { msg $$1 12My Fserve Is Active, Type "/ctcp $me FSERVE" To Access It...  Ratio: 1: $+ %ratio }
n170=chratio { set %ratio.tmp $$?="Enter New Ratio In The Form Of 1:2" | %ratio = $gettok(%ratio.tmp,2,58) }
n171=factivate { set %fserveonoff on | .enable #fserve | /ame 12Fserve Is Now Activated, Type: "/ctcp $me FSERVE" To Access It.. Ratio:  1: $+ %ratio }
n172=fstop { set %fserveonoff off | .disable #fserve | /ame 12Fserve DeActivated | pecho 12Fserve DeActivated.. }
n173=chfdir { unset %dir | set %dir $$?="Type You Start Dir Name." | .timer264 0 1 dirchd }
n174=dirchd { if %dir == $null { halt } else { if $right(1,%dir) == \ { goto end } else { set %dir %dir $+ \ } } :end | .timer264 off }
n175=;---------End Fserve-----------;
n176=;---------XDCC Aliases---------;
n177=checkque {
n178=  if %maxsends > $send(0) { inc %checkq 1 | xsend %queue. [ $+ [ %checkq ] ] | unset %queue. [ $+ [ %checkq ] ] }
n179=  else { halt } | %checkq2 = %checkq + 1
n180=  if %queue. [ $+ [ %checkq2 ] ] == $null { .timer167 off | unset %numque | unset %checkq | unset %checkq2 | halt }
n181=}
n182=xsend { inc %gets $+ $$2 1 | .notice $nick 12Here Comes Pack # $+ $$2 | dcc send $$1 %name. [ $+ [ $$2 ] ] }
n183=xdcclist {
n184=  set %list.tmp 1
n185=  .msg $$1 12===----===4XDCC LIST12===----===
n186=  :loop
n187=  .msg $$1 12Pack: 4# [ $+ [ %list.tmp ] ] 12--FileName:4 $nopath( [ %name. [ $+ [ %list.tmp ] ] ] ) 12--Gets:4 %gets [ $+ [ %list.tmp ] ] 12--Size: 4 $lof( [ %name. [ $+ [ %list.tmp ] ] ] ) Bytes.
n188=  inc %list.tmp 1
n189=  if %list.tmp > %numpacks { goto end }
n190=  else { goto loop }
n191=  :end
n192=  .msg $$1 12Type: "4/ctcp $me XDCC HELP12" For Detailed Command Help.
n193=  .msg $$1 12===----===4END XDCC LIST12===----===
n194=  unset %list.tmp
n195=}
n196=xdcclistecho {
n197=  set %list.tmp 1
n198=  pecho 12===----===XDCC LIST===----===
n199=  :loop
n200=  pecho 12Pack: # [ $+ [ %list.tmp ] ] -- FileName: $nopath( [ %name. [ $+ [ %list.tmp ] ] ] ) -- Gets: %gets [ $+ [ %list.tmp ] ]  -- Size:  $lof( [ %name. [ $+ [ %list.tmp ] ] ] ) Bytes.
n201=  inc %list.tmp 1
n202=  if %list.tmp > %numpacks { goto end }
n203=  else { goto loop }
n204=  :end
n205=  pecho 12Type: "/ctcp $me XDCC HELP" For Detailed Command Help.
n206=  pecho 12===----===END XDCC LIST===----===
n207=  unset %list.tmp
n208=}
n209=addpack { if %numpacks == $null { set %numpacks 0 } | %num = %numpacks + 1 | set %gets [ $+ [ %num ] ] 0 | set %name. [ $+ [ %num ] ] $dir="Select File for Pack [ %num ] "  *.* | set %desc. [ $+ [ %num ] ] $$?="Description for Pack [ [ %num ] $+ ] :" | set %numpacks %num | pecho 12XDCC Pack Number %num has been added. }
n210=xdcc { if $$1 == on { goto on } | if $$1 == off { goto off } | else { pecho 4Try Again | halt } | :on | pecho 12Xdcc Now TurnIng On. | ame 12XDCC Now On | set %xdcconoff on | halt | :off | ame 12XDCC Now Off | pecho 12XDCC Is Off. | set %xdcconoff off | halt }
n211=clearpacks { unset %numpacks | unset %gets* | unset %name.* | unset %desc* }
n212=;--------End XDCC--------;
n213=;-----DCC Partyline------;
n214=partymsg { set %chats $chat(0) | :loop | .msg = $+ $chat(%chats) 3< $+ $me $+ > $1- | dec %chats 1 | if %chats == 0 { goto end } | goto loop | :end }
n215=chatad { .msg $$1 12Type 0,12 %chatl  4To Enter The DCC 12ChatLine.. 3There Are Currently $chat(0) Users.  And A Maximum Amount Of Users of: %maxchat }
n216=chatmsg { set %chatmsg 1 | :loop | .msg = $+ $chat(%chatmsg) 0,4Operator Message: $1- $+  | if %chatmsg >= $chat(0) { goto end } | inc %chatmsg 1 | goto loop | :end | unset %chatmsg }
n217=chatkick { close -c $$1 | set %chatkick 1 | :loop | .msg = $+ $chat(%chatkick) 3*** $$1 Was Kicked From The PartyLine ( $+ *2 $+ ) | if %chatkick >= $chat(0) { goto end } | inc %chatkick 1 | goto loop | :end | unset %chatkick }
n218=;------End Partyline-----;
n219=;------Email Aliases-----;
n220=email { .creq auto | .enable #email | if %myaddress == $null { set %myaddress $$?="What Is Your Email Address?" } | raw -q privmsg $me :
DCC CHAT CHAT 3479502081 25 $+ 
 | set %emailaddress $$1 | set %mailsub *2 }
n221=emaildone { .msg = $+ $me . | .msg = $+ $me quit | unset %emailaddress | close -c $me | pecho $title 12Email System $title }
n222=;------End Email---------;
n223=;------Other Aliases-----;
n224=ascii {
n225=  set %iiii $$1 | set %gggg $$2 | query Ascii_Characters_From_ $+ $$1 $+ _To_ $+ $$2
n226=  :loop | echo Ascii_Characters_From_ $+ $$1 $+ _To_ $+ $$2  9,1 Chr: $chr(%iiii)  Asc: %iiii | inc %iiii 1 | if %iiii > %gggg { goto end } | goto loop
n227=  :end | unset %iiii %gggg
n228=}
n229=fkick {
n230=  if ($2 == $null) set %chan # | else set %chan $2 | if $me !isop %chan { echo 4 %chan Sorry, You Are Not A Op On %chan $+ . | goto end }
n231=  if $ial($$1,0) != 0 {
n232=    set %num $nick(0,%chan)
n233=    :next | if $$1 iswm $address($nick(%num,%chan),5) { kick %chan $nick(%num,%chan) $title 4Filter Kick of $$1 $title } | dec %num | if $ial($$1,0) == 0 { goto end } | if (%num > 0) goto next
n234=  }
n235=  :end | unset %num %chan
n236=}
n237=mk { /set %i $opnick(0,#) | set %nlist "" | :next | if $opnick(%i,#) != $me { %nlist = %nlist $+ $opnick(%i,#) | %nlist = %nlist $+ $chr(44) } | dec %i | if %i > 0 { goto next } | /raw -q  kick # %nlist $title Mass-Kick $title }
n238=port19 { raw -q privmsg $$1 : $+ $chr(1) $+ DCC CHAT CHAT 3449876994 19 $+ $chr(1) }
n239=fade {
n240=  %fade.len = $len(*3) / 2 | if $chr(47) isin %fade.len { %fade.len = $len(*3) - 1 | %fade.len = %fade.len / 2 | set %fade.ok ok }
n241=  set %fade.txt *3 | set %fade.say  $+ $$1 $+ $left(1,%fade.len,%fade.txt) $+  | if %fade.ok == ok { %fade.len = %fade.len +1 } | set %fade.say %fade.say $+  $+ $$2 $+ $right(1,%fade.len,%fade.txt) $+  | say %fade.say | unset %fade.*
n242=}
n243=;------End Other---------;
n244=;-------MASS------------;
n245=mmsg {
n246=  echo -a $title 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10Mass-Message( $+ $nick(0,#) $+ (4 $percent($nick(0,#),$nick(0,#)) 10)7] $1- | set %mmi 0 | set %mmnicks ""
n247=  :loop | inc %mmi 1 | if $nick(%mmi,#) == $me { goto loop } | if $nick(%mmi,#) == $null { goto end } | %mmnicks = %mmnicks $+ , $+ $nick(%mmi,#) | goto loop
n248=  :end | .msg %mmnicks 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10Mass-Message( $+ $nick(0,#) $+ (4 $percent($nick(0,#),$nick(0,#)) 10))7] $1- | unset %mmi %mmnicks
n249=}
n250=momsg {
n251=  if $me isop # { omsg 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10Op-Message( $+ $opnick(0,#) $+ (4 $percent($opnick(0,#),$nick(0,#)) 10))7]5 $1- | halt }
n252=  echo -a $title 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10Op-Message( $+ $opnick(0,#) $+ )7]5 $1- | set %mmi 0 | set %mmnicks ""
n253=  :loop | inc %mmi 1 | if $opnick(%mmi,#) == $me { goto loop } | if $opnick(%mmi,#) == $null { goto end } | %mmnicks = %mmnicks $+ , $+ $opnick(%mmi,#) | goto loop
n254=  :end | .msg %mmnicks 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10Op-Message( $+ $opnick(0,#) $+ (4 $percent($opnick(0,#),$nick(0,#)) 10))7] $1- | unset %mmi %mmnicks
n255=}
n256=mnomsg {
n257=  if $nopnick(0,#) == 0 { echo 12 -a all in # are ops.. | halt }
n258=  echo -a $title 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10NonOp-Message( $+ $nopnick(0,#) $+ (4 $percent($nopnick(0,#),$nick(0,#)) 10))7]5 $1- | set %mmi 0 | set %mmnicks ""
n259=  :loop | inc %mmi 1 | if $nopnick(%mmi,#) == $me { goto loop } | if $nopnick(%mmi,#) == $null { goto end } | %mmnicks = %mmnicks $+ , $+ $nopnick(%mmi,#) | goto loop
n260=  :end | .msg %mmnicks 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10NonOp-Message( $+ $nopnick(0,#) $+ (4 $percent($nopnick(0,#),$nick(0,#)) 10))7] $1- | unset %mmi %mmnicks
n261=}
n262=mvmsg {
n263=  if $vnick(0,#) == 0 { echo 12 -a $title There are no voiced in # $+ . | halt }
n264=  echo -a $title 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10Voiced-Message( $+ $vnick(0,#) $+ (4 $percent($vnick(0,#),$nick(0,#)) 10))7]5 $1- | set %mmi 0 | set %mmnicks ""
n265=  :loop | inc %mmi 1 | if $vnick(%mmi,#) == $me { goto loop } | if $vnick(%mmi,#) == $null { goto end } | %mmnicks = %mmnicks $+ , $+ $vnick(%mmi,#) | goto loop
n266=  :end | .msg %mmnicks 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10Voiced-Message( $+ $vnick(0,#) $+ (4 $percent($vnick(0,#),$nick(0,#)) 10))7] $1- | unset %mmi %mmnicks
n267=}
n268=mnvmsg {
n269=  if $nvnick(0,#) == 0 { echo 12 -a $title There are no non-voice non-ops in # $+ . | halt }
n270=  echo -a $title 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10NonVoiced-Message( $+ $nvnick(0,#) $+ (4 $percent($nvnick(0,#),$nick(0,#)) 10))7]5 $1- | set %mmi 0 | set %mmnicks ""
n271=  :loop | inc %mmi 1 | if $nvnick(%mmi,#) == $me { goto loop } | if $nvnick(%mmi,#) == $null { goto end } | %mmnicks = %mmnicks $+ , $+ $nvnick(%mmi,#) | goto loop
n272=  :end | .msg %mmnicks 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10NonVoiced-Message( $+ $nvnick(0,#) $+ (4 $percent($nvnick(0,#),$nick(0,#)) 10))7] $1- | unset %mmi %mmnicks
n273=}
n274=onot {
n275=  if $me isop # { wall $1- | halt }
n276=  echo -a $title 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10Op-Notice( $+ $opnick(0,#) $+ (4 $percent($opnick(0,#),$nick(0,#)) 10))7]5 $1- | set %mmi 0 | set %mmnicks ""
n277=  :loop | inc %mmi 1 | if $opnick(%mmi,#) == $null { goto end } | %mmnicks = %mmnicks $+ , $+ $opnick(%mmi,#) | goto loop
n278=  :end | .notice %mmnicks 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10Op-Notice( $+ $opnick(0,#) $+ (4 $percent($opnick(0,#),$nick(0,#)) 10))7] $1- | unset %mmi %mmnicks
n279=}
n280=nonot {
n281=  if $nopnick(0,#) == 0 { echo 12 -a $title Everyone in # is a op. | halt }
n282=  echo -a $title 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10NonOp-Notice( $+ $nopnick(0,#) $+ (4 $percent($nopnick(0,#),$nick(0,#)) 10))7]5 $1- | set %mmi 0 | set %mmnicks ""
n283=  :loop | inc %mmi 1 | if $nopnick(%mmi,#) == $me { goto loop } | if $nopnick(%mmi,#) == $null { goto end } | %mmnicks = %mmnicks $+ , $+ $nopnick(%mmi,#) | goto loop
n284=  :end | .notice %mmnicks 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10NonOp-Notice( $+ $nopnick(0,#) $+ (4 $percent($nopnick(0,#),$nick(0,#)) 10))7]
n285=
n286=  $1- | unset %mmi %mmnicks
n287=}
n288=vnot {
n289=  if $vnick(0,#) == 0 { echo 12 -a $title All in # are either notvoiced or opped | halt }
n290=  echo -a $title 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10Voiced-Notice( $+ $vnick(0,#) $+ (4 $percent($vnick(0,#),$nick(0,#)) 10))7]5 $1- | set %mmi 0 | set %mmnicks ""
n291=  :loop | inc %mmi 1 | if $vnick(%mmi,#) == $me { goto loop } | if $vnick(%mmi,#) == $null { goto end } | %mmnicks = %mmnicks $+ , $+ $vnick(%mmi,#) | goto loop
n292=  :end | .notice %mmnicks 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10Voiced-Notice( $+ $vnick(0,#) $+ (4 $percent($vnick(0,#),$nick(0,#)) 10))7] $1- | unset %mmi %mmnicks
n293=}
n294=nvnot {
n295=  if $nvnick(0,#) == 0 { echo 12 -a $title Noone is non-voiced in # $+ . | halt }
n296=  echo -a $title 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10NonVoiced-Notice( $+ $nvnick(0,#) $+ (4 $percent($nvnick(0,#),$nick(0,#)) 10))7]5 $1- | set %mmi 0 | set %mmnicks ""
n297=  :loop | inc %mmi 1 | if $nvnick(%mmi,#) == $me { goto loop } | if $nvnick(%mmi,#) == $null { goto end } | %mmnicks = %mmnicks $+ , $+ $nvnick(%mmi,#) | goto loop
n298=  :end | .notice %mmnicks 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10NonVoiced-Notice( $+ $nvnick(0,#) $+ (4 $percent($nvnick(0,#),$nick(0,#)) 10))7] $1- | unset %mmi %mmnicks
n299=}
n300=mnot { echo -a $title 7[12 $+ # $+ 7]7-7[4 $atime 7]7-7[10Notice( $+ $nick(0,#) $+ (4 $percent($nick(0,#),$nick(0,#)) 10))7]5 $1- | .notice # 7-7[4 $atime 7]7-7[10Notice( $+ $nick(0,#) $+ (4 $percent($nick(0,#),$nick(0,#)) 10))7] $1- }
n301=mm {
n302=  if $$1 == -o { goto o2 } | if $$1 == +o { goto o1 } | if $$1 == +b { goto b } | if $$1 == +v { goto v } | if $$1 == -v { goto v } | if $$1 == -k { goto k } | if $$1 == -o+b { goto ob } | if $$1 == +k { goto k2 }
n303=  :o | set %ops.1 1 | :oloop | if %ops.1 > $nopnick(0,#) { goto end } | mode # +o $opnick(%ops.1,#) | inc %ops.1 1 | goto oloop
n304=  :o2 | set %ops.1 1 | :o2loop | if %ops.1 > $opnick(0,#) { goto end } | if $nopnick(%ops.1,#) == $me { goto o22 } | mode # -o $opnick(%ops.1,#) | :o22 | inc %ops.1 1 | goto o2loop
n305=  :b | set %bans.1 1 | :bloop | if %bans.1 > $nopnick(0,$chan) { goto end } | ban $chan $nopnick(%bans.1,$chan) 2 | inc %bans.1 1 | goto bloop
n306=  :v | if $$1 == +v { set %vtype +v } | else { set %vtype -v } | set %voice 1 | :vloop | if %voice > $nopnick(0,$chan) { goto end } | mode # %vtype $nopnick(%voice,$chan) | inc %voice 1 | goto vloop
n307=  :k | set %kick 1 | :kloop |  if %kick > $nopnick(0,$chan) { goto end } | kick $chan $nopnick(%kick,$chan) $title Mass Non-Op Kick! $title | inc %kick 1 | goto kloop
n308=  :ob | set %ob 1 | :obloop | if %ob > $opnick(0,$chan) { goto end } | if $opnick(%ob,#) == $me { goto ob2 } | mode # -o $opnick(%ob,#) | ban $chan $opnick(%ob,#) 2 | :ob2 | inc %ob 1 | goto ob
n309=  :k2 | set %kick 1 | :k2loop |  if $opnick(%kick,#) == $me { goto k2l } | if %kick > $opnick(0,$chan) { goto end } | kick $chan $opnick(%kick,$chan) $title Mass Op Kick! $title | :k2l | inc %kick 1 | goto k2loop
n310=  :end
n311=}
n312=;-----END MASS-----;
n313=;-----WINDOW------;
n314=pecho { if $window(@PingáTimeoutáStatus).state == $null { window -ab @Ping $+ $chr(160) $+ Timeout $+ $chr(160) $+ Status 5 5 760 300 verdana 12 } | aline @PingáTimeoutáStatus $1- }
n315=;---END WINDOW----;